/* rqlu013.p - Dispositioned Requisitions Lookup UI                         */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                      */
/* All rights reserved worldwide.  This is an unpublished work.             */
/* $Revision: 1.4 $    */
/*V8:ConvertMode=NoConvert                                                  */
/********************************** History *********************************
 * Revision:     BY: Jean Miller          DATE: 03/04/02  ECO: *N1BS*
 * $Revision: 1.4 $    BY: Katie Hilbert        DATE: 05/09/02  ECO: *P06B*
 ****************************************************************************/

{mfdeclre.i}

&SCOPED-DEFINE BR-TITLE "Dispositioned Requisitions"

&SCOPED-DEFINE BR-NAME rq013
&SCOPED-DEFINE Q-DRAG-BACK-COL 1

&SCOPED-DEFINE Q-FIRST-TABLE rqda_det
&SCOPED-DEFINE Q-NUM-TABLES 1

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-1 b-1.rqda_nbr
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-1 rqda_det.rqda_nbr
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-1 tt-rqda_nbr
&SCOPED-DEFINE BR-K-COL-LABEL-1 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-1 "Req Nbr"
&SCOPED-DEFINE BR-FIELD-TYPE-1 character
&SCOPED-DEFINE BR-FIELD-FRMT-1 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-1 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-2 if rqda_action = "1" then "Approved" else "Denied"
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-2 local-2
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-2 tt-local-2
&SCOPED-DEFINE BR-K-COL-LABEL-2 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-2 "Action"
&SCOPED-DEFINE BR-FIELD-TYPE-2 character
&SCOPED-DEFINE BR-FIELD-FRMT-2 FORMAT "x(12)"
&SCOPED-DEFINE BR-FIELD-WIDTH-2 13

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-3 b-1.rqda_date
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-3 rqda_det.rqda_date
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-3 tt-rqda_date
&SCOPED-DEFINE BR-K-COL-LABEL-3 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-3 "Date"
&SCOPED-DEFINE BR-FIELD-TYPE-3 date
&SCOPED-DEFINE BR-FIELD-FRMT-3 FORMAT "99/99/99"
&SCOPED-DEFINE BR-FIELD-WIDTH-3 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-4 if rqda_date <> ? then string(rqda_time,"HH:MM:SS") else ""
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-4 local-4
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-4 tt-local-4
&SCOPED-DEFINE BR-K-COL-LABEL-4 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-4 "Time"
&SCOPED-DEFINE BR-FIELD-TYPE-4 character
&SCOPED-DEFINE BR-FIELD-FRMT-4 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-4 9

&SCOPED-DEFINE BR-LOCAL-VAR-2 define variable local-2 as character format "x(12)" no-undo.
&SCOPED-DEFINE BR-LOCAL-VAR-4 define variable local-4 as character format "x(8)" no-undo.
&SCOPED-DEFINE Q-NUM-FILT-VALS 4
&SCOPED-DEFINE BR-MAX-FIELD-WIDTH 13
&SCOPED-DEFINE BR-BROWSE-WIDTH 40
&SCOPED-DEFINE WHERE-CLAUSE rqda_apr_userid = c-brparm1
&SCOPED-DEFINE BR-INDEXED-FIELDS 1

{wbbr01.i &string-4 = 'LOOKUP'}
if c-application-mode <> 'WEB' then do:
   {lookup.i}
end.
